home *** CD-ROM | disk | FTP | other *** search
/ Grafik Collection 1 / Grafik Collection 1.iso / hamlabplus_demo / rexx / testvar.hl < prev   
Encoding:
Text File  |  1992-06-22  |  2.5 KB  |  83 lines
  1. /* test HamLab Plus REXX variable interface */
  2.  
  3. 'GETATTR APPLICATION STEM APPL'
  4.  
  5. say 'Application attributes:'
  6. say APPL.NAME 'version' APPL.VERSION
  7. say ' screen:' APPL.SCREEN
  8.  
  9. 'GETATTR CONFIG STEM CONF'
  10. say 'Config attributes:'
  11. say ' cache12bit:' CONF.CACHE12BIT.MEM||'/'||CONF.CACHE12BIT.DISK
  12. say ' cache24bit:' CONF.CACHE24BIT.MEM||'/'||CONF.CACHE24BIT.DISK
  13. say '     fixham:' CONF.FIXHAM
  14. say '       beep:' CONF.BEEP
  15. say '        ask:' CONF.ASK
  16. say '   temppath:' CONF.TEMPPATH
  17. say ' filterpath:' CONF.FILTERPATH
  18. say '    pipedev:' CONF.PIPEDEV
  19. say '    rexxcon:' CONF.REXXCON
  20.  
  21. 'GETATTR SCALE STEM SC'
  22. say 'Scale attributes:'
  23. say '           X:' SC.X pct(SC.XPERCENT)
  24. say '           Y:' SC.Y pct(SC.YPERCENT)
  25. say ' constrained:' SC.CONSTRAINED
  26.  
  27. 'GETATTR INPUT STEM INP'
  28. say 'Input attributes:'
  29. say '     path:' INP.PATH
  30. say '     name:' INP.NAME
  31. say '  pattern:' INP.PATTERN
  32. say '     size:' INP.WIDTH||'x'||INP.HEIGHT||'x'||INP.DEPTH
  33. say '   format:' INP.FORMAT
  34. say ' cropping:' 'upper left:' INP.CROP.ULX||','||INP.CROP.ULY 'size:' INP.CROP.WIDTH||'x'||INP.CROP.HEIGHT
  35.  
  36. 'GETATTR OUTPUT STEM O'
  37. say 'Output attributes:'
  38. say '      path:' O.PATH
  39. say '      name:' O.NAME
  40. say '   pattern:' O.PATTERN
  41. say ' extension:' O.EXTENSION
  42. say '  cropping:' 'upper left:' O.CROP.ULX||','||O.CROP.ULY 'size:' O.CROP.WIDTH||'x'||O.CROP.HEIGHT
  43. say '      mode:'
  44. say '  resolution:' O.MODE.RESOLUTION||'-'||O.MODE.BITPLANES||lace(O.MODE.INTERLACE)||'/'||O.MODE.DITHER||'/'||O.MODE.DITHER2
  45. say '     palette:' O.MODE.PALETTEMODE
  46. if O.MODE.PALETTEMODE == "SLICED" then say '             ('||O.MODE.SLICECOLORS 'colors sliced)'
  47. say '        save:' O.MODE.SAVEMODE
  48. say '     onestep:' O.MODE.ONESTEP
  49. say '     lock bg:' O.MODE.LOCKBACKGROUND
  50.  
  51. 'GETATTR DISPLAY STEM D'
  52. say 'Display attributes:'
  53. if D.VISIBLE.WIDTH = 0 then say '(display not open)'; else do
  54.   say 'total size:' D.TOTAL.WIDTH||'x'||D.TOTAL.HEIGHT
  55.   say 'visible size:' D.VISIBLE.WIDTH||'x'||D.VISIBLE.HEIGHT 'at' D.VISIBLE.ULX||','||D.VISIBLE.ULY
  56. end
  57.  
  58. 'GETATTR COLOR STEM C'
  59. say 'Color attributes:'
  60. say '     path:' C.PATH
  61. say '     name:' C.NAME
  62. say '  pattern:' C.PATTERN
  63. say '    gamma:' C.GAMMA
  64. say ' stepsize:' C.STEPSIZE
  65. say '      red:' curve(C.RED,0) curve(C.RED,128) curve(C.RED,255)
  66. say '    green:' curve(C.GREEN,0) curve(C.GREEN,128) curve(C.GREEN,255)
  67. say '     blue:' curve(C.BLUE,0) curve(C.BLUE,128) curve(C.BLUE,255)
  68. exit
  69.  
  70. pct:
  71. arg x
  72. if x == "ON" then return '%'
  73. return ' '
  74.  
  75. lace:
  76. arg x
  77. if x == "ON" then return '/LACE'
  78. return ' '
  79.  
  80. curve:
  81. arg x,n
  82. return c2d(substr(x,n*2+1,2,2))
  83.